home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ShareWare OnLine 2
/
ShareWare OnLine Volume 2 (CMS Software)(1993).iso
/
infor
/
feb93.zip
/
TIP844.LSP
< prev
next >
Wrap
Text File
|
1993-01-14
|
655b
|
22 lines
;TIP844: PF.LSP (C)1993, JAMES "DUSTY" RAY
; PF.LSP is a routine to fillet 2 plines. First entity picked controls pwidth
; of both selections. Fillet radius is set normally. James "Dusty" Ray 6-15-92.
(defun c:PF (/ a b r th v1)
(setvar "cmdecho" 0)
(setq v1 (ssget))
(setq a (ssname v1 0))
(setq b (ssname v1 1))
(setq th (cdr (assoc 40 (entget a))))
(setq r (getvar "filletrad"))
(command "explode" a)
(setq a (entlast))
(command "explode" b)
(setq b (entlast))
(command "fillet" a b)
(if (> r 0) (command "pedit" (entlast) "" "w" th ""))
(command "pedit" a "" "w" th "")
(command "pedit" b "" "w" th "")
(princ)
)